﻿Public Class test

    Private Sub test_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Node2_NodeClick(sender As Object, e As EventArgs) Handles Node2.NodeClick
        Dim CMSPHERE As New CMSPHERE
        CMSPHERE.MdiParent = Me.MdiParent
        CMSPHERE.Parent = Me.PanelEx1
        CMSPHERE.Dock = DockStyle.Fill
        'Me.AdvTree1.Dock = DockStyle.Right
        'Me.AdvTree1.Visible = True
        CMSPHERE.Show()
    End Sub

    Private Sub AdvTree1_Click(sender As Object, e As EventArgs) Handles AdvTree1.Click

    End Sub

    Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
        Dim nextform As New IMPORTEXCEL(TextBoxX1.Text.ToString)
        nextform.ShowDialog()
    End Sub
End Class